DR1='N:'
F1='PATIENT'
SELE 1
SET EXCLU OFF
USE &DR1&F1
GO TOP
DO WHILE .NOT. EOF()
   KDPAT=PAT_FILCOD
   KOD=KDPAT+'.DBF'
   LAKOD='LA'+KOD
   IF FILE("&DR1&LAKOD")
      DELE FILE &DR1&LAKOD
   ENDIF
   MEKOD='ME'+KOD
   IF FILE("&DR1&MEKOD")
      DELE FILE &DR1&MEKOD
   ENDIF
   PHKOD='PH'+KOD
   IF FILE("&DR1&PHKOD")
      DELE FILE &DR1&PHKOD
   ENDIF
   SKIP
ENDDO
RETURN